#x,bitNum输入变量

if(is.null(n) || n == 0) {
    n <- ceiling(sqrt(length(x)))
}

m <- length(x)
cl <- c(-3, -2, -1, 0, 1, 2, 3)

#移动极差
#claData <- abs(x[2:m] - x[1:m - 1])
claData <- abs(c(x[2:m], x[1]) - x[1:m])
#对比线
CL <- mean(claData) + cl * sd(claData)

#精确位数
#if (bitNum > 0) {
#    claData <- round(claData, bitNum)
#    CL <- round(CL, bitNum)
#}